<%
  ' Si el usuario no está conectado, redirigir a la página de inicio de sesión
  If Not Session("auth_granted") = "true" Then 
  	cadURL = "Login.asp"
	response.write "<script>window.open('"& cadURL & "','_top');</script>"
	Response.End
  End If 
%>
<!--#include file="Librerias/mssql-ds.dll" -->
<!--#include file="Librerias/security-ds.dll" -->
<!--#include file="Funciones/FuncionesGenerales.asp" -->
<link href="Estilos/EstilosPagina.css" rel="stylesheet" type="text/css">

<script language="javascript">
function CargarInsumos(vID){
	window.open('FrameInsumos.asp?qIdentificador='+vID, 'frameINSUMOS');
}
</script>

<%
'// Recuperar la gestion de trabajo
qGestion = Session("auth_granted_poa_gestion")
qIdentificador = request.querystring("qIdentificador")

sSQL = ""
sSQL = sSQL & " SELECT pro"& qGestion &"_id, pro"& qGestion &"_proceso, pro"& qGestion &"_objetivo, pro"& qGestion &"_ponderacion, pro"& qGestion &"_codigo"
sSQL = sSQL & " FROM Procesos"& qGestion &""
sSQL = sSQL & " WHERE (p"& qGestion &"_id = "& qIdentificador &")"
''sSQL = sSQL & " WHERE (p"& qGestion &"_id = "& MatrizProductos(0,m) &") AND (uni_id = "& Session("auth_granted_poa_unidad") &")"
MatrizProcesos = MatrixBD(sSQL, 1)
If VarType(MatrizProcesos) = 8  then
	QProcesos = -1
Else
	QProcesos = UBound(MatrizProcesos,2)	
End If
%>
<table width="93%" border="0" cellspacing="1" cellpadding="4" align="center">
  <tr>
    <td class="EncabezadoTabla" align="center">No.</td>
    <td class="EncabezadoTabla" align="center">C&oacute;digo</td>
    <td class="EncabezadoTabla" align="center">Objetivo Actividad</td>
    <td class="EncabezadoTabla" align="center">Saldo</td>
    <td class="EncabezadoTabla" align="center">
    
    	<table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="EncabezadoTabla" align="center" title="Certificar">C</td>
            <!--<td class="EncabezadoTabla" align="center" title="Presupuesto">P</td>
            <td class="EncabezadoTabla" align="center" title="Saldo">S</td>-->
          </tr>
        </table>
    
    </td>
  </tr>
  <% for n = 0 to QProcesos %>
  <%
  if n mod 2 = 0 then
  bgcolor = "TablaFila1"
  else
  bgcolor = "TablaFila2"
  end if 
  %>
  <tr class="<%=bgcolor%>">
    <td width="20"><%=n+1%></td>
    <td width="10%"><%=MatrizProcesos(4,n)%></td>
    <td width="50%"><%=MatrizProcesos(2,n)%></td>
    
    <td width="30%">
    
    <%
		sSQL = ""
		sSQL = sSQL & " SELECT SUM(Insumos.ins_costo_total) AS SUMA, Partidas.par_id, Partidas.par_nombre, SUM(Insumos.ins_cert_saldo) AS SALDO, SUM(Insumos.ins_devengado) AS DEVENGADO"
		sSQL = sSQL & " FROM InsumoProceso"& qGestion &""
		sSQL = sSQL & " INNER JOIN Insumos ON InsumoProceso"& qGestion &".ins_id = Insumos.ins_id"
		sSQL = sSQL & " INNER JOIN Partidas ON Insumos.par_id = Partidas.par_id"
		sSQL = sSQL & " WHERE (InsumoProceso"& qGestion &".pro"& qGestion &"_id = "& MatrizProcesos(0,n) &")"
		sSQL = sSQL & " GROUP BY Partidas.par_id, Partidas.par_nombre"
		MatTemporal = MatrixBD(sSQL, 1)
		If VarType(MatTemporal) = 8  then
		CuantosTemporal = -1
		Else
		CuantosTemporal = UBound(MatTemporal,2)	
		End If
		If CuantosTemporal <> -1 Then %>
		<table width="100%" border="1" cellspacing="0" cellpadding="2" bordercolor="#ACACAC" style="border-collapse:collapse;">
		<tr>
		<td align="center" class="EncabezadoTablaPrint">Partida</td>
		<td align="center" class="EncabezadoTablaPrint">Descripci&oacute;n</td>
        <td align="center" class="EncabezadoTablaPrint">Presupuesto (Bs.)</td>
         <td align="center" class="EncabezadoTablaPrint">Devengado (Bs.)</td>
        <td align="center" class="EncabezadoTablaPrint">Saldo (Bs.)</td>
         <td align="center" class="EncabezadoTablaPrint">% Ejecuci&oacute;n</td>
		</tr>
		<% For tempo = 0 To CuantosTemporal %>
		<tr>
		<td><%=MatTemporal(1,tempo)%></td>
		<td><%=MatTemporal(2,tempo)%></td>
        <td align="right"><%=FormatNumber(MatTemporal(0,tempo),2)%></td>
        <td align="right"><%=FormatNumber(MatTemporal(4,tempo),2)%></td>
        <td align="right"><%=FormatNumber(MatTemporal(3,tempo),2)%></td>
        <%
		If CDbl(MatTemporal(0,tempo)) = 0 Then 
			porcentaje = 0
		Else
			porcentaje = CDbl(MatTemporal(4,tempo))/CDbl(MatTemporal(0,tempo))
		End If
		%>
        <td align="right"><%=FormatPercent(porcentaje,2)%></td>
		</tr>
		<% Next %>
		</table>
		<% Else %>
		<table width="100%" border="2" cellspacing="0" cellpadding="2" bordercolor="#ACACAC" style="border-collapse:collapse;">
		<tr>
    <%
    sSQL = ""
    sSQL = sSQL & " SELECT SUM(Insumos.ins_costo_total) AS PRESUPUESTO"
    sSQL = sSQL & " FROM InsumoProceso"& qGestion &""
    sSQL = sSQL & " INNER JOIN Insumos ON InsumoProceso"& qGestion &".ins_id = Insumos.ins_id"
    sSQL = sSQL & " WHERE (InsumoProceso"& qGestion &".pro"& qGestion &"_id = "& MatrizProcesos(0,n) &")"
	ResultadoTemporal = RecordBD(sSQL, "PRESUPUESTO", 1)
	
	sSQL = ""
    sSQL = sSQL & " SELECT SUM(Insumos.ins_cert_saldo) AS SALDO"
    sSQL = sSQL & " FROM InsumoProceso"& qGestion &""
    sSQL = sSQL & " INNER JOIN Insumos ON InsumoProceso"& qGestion &".ins_id = Insumos.ins_id"
    sSQL = sSQL & " WHERE (InsumoProceso"& qGestion &".pro"& qGestion &"_id = "& MatrizProcesos(0,n) &")"
	OtroResultadoTemporal = RecordBD(sSQL, "SALDO", 1)
    
    If IsNull(ResultadoTemporal) Then ResultadoTemporal = 0 
	If IsNull(OtroResultadoTemporal) Then OtroResultadoTemporal = 0 
    ''Response.Write FormatNumber(ResultadoTemporal,2)
        %>
		<td><%=FormatNumber(OtroResultadoTemporal,2)%></td>
		</tr>
		</table>
		<% End If %>                                                        
    
    </td>
    <td width="10%" align="center">
    
		
        <% If CDbl(ResultadoTemporal) = 0 Then %>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td align="center"><img src="Iconos/page_red.png" width="16" height="16" align="absmiddle" border="0" title="No tiene saldo" alt="No tiene saldo"></td>                
              </tr>
            </table>
        <% Else %>
        	<table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td align="center">
                  <%
                    tieneSaldosSinProgramar = esActividadSaldosSinProgramar(MatrizProcesos(0,n))
                  %>
                  <a href="_CertificacionesPOA.asp?WhatToDo=cmdCertificate&qRegistro=<%=MatrizProcesos(0,n)%>" target="_top"><img src="Iconos/book_go.png" width="16" height="16" align="absmiddle" border="0" title="Certificar" alt="Certificar"></a>                  
                </td>                
                <!--<td align="center"><img src="Iconos/money_dollar.png" width="16" height="16" align="absmiddle" border="0" title="PRESUPUESTO : <%=FormatNumber(ResultadoTemporal,2)%>" alt="PRESUPUESTO : <%=FormatNumber(ResultadoTemporal,2)%>" style="cursor:help;"></td>
                <td align="center"><img src="Iconos/coins.png" width="16" height="16" align="absmiddle" border="0" title="SALDO : <%=FormatNumber(OtroResultadoTemporal,2)%>" alt="SALDO : <%=FormatNumber(OtroResultadoTemporal,2)%>" style="cursor:help;"></td>-->
              </tr>
            </table>
        <% End If %>
    
    </td>
  </tr>
  <% next %>
</table>